| 发表于:2007-05-30 10:44:042楼 得分:0 |
代码如下: private sub datagrid1_click() dim msg, style, title, response, mystring ', ctxt, help dim xs_shuju(10) as variant for i = 0 to 3 xs_shuju(i) = adodc1.recordset(i) next msg = "数据显示 " ' 定义信息。 style = vbyes title = "说明 " ' 定义标题。 msg = msg & vbnewline & _ "num: " & xs_shuju(0) & vbnewline & _ "shuju1: " & xs_shuju(1) & vbnewline & _ "shuju2: " & xs_shuju(2) & vbnewline & _ "shuju3: " & xs_shuju(3) & vbnewline response = msgbox(msg, style, title) if response = vbyes then ' 用户按下“是”。 mystring = "yes " ' 完成某操作。 end if end sub | | |
|