Private Sub Command5_Click()If MSHFlexGrid1.RowSel Then---------如果MSHFlexGrid1中有被选中的行 Unload Me---------------------------这个窗口关闭cx_xzgl_gtzyywgwyscld.Show----------要打印的窗口弹出 cx_xzgl_gtzyywgwyscld.Adodc1.RecordSource = MSHFlexGrid1.RowSel---打印窗口的记录和 选中的行记录一致 ElseMsgBox "请先选择要打印的记录!!!", vbOKOnly + vbExclamation, "信息提示"----如果没选则提示选择 End If End Sub 大哥们这段代码怎么改写呀,分不够我再加!
cx_xzgl_gtzyywgwyscld.Adodc1.RecordSource = MSHFlexGrid1.RowSel这句有问题,是不是 应该按照表格内容读一下数据库?rowsel只是返回一个行数,是个long型。另外unload me 那句是不是改成me.hide?我不知道form unload 之后会不会影响后面的代码运行 我做数据库不大用控件,一直是用ado对象的,如果说的不对,请多包涵。
定义一个全局变量
选择MSHFlexGrid的一行的同时,给全局变量赋一个主键值,然后打印窗口再从数据库SELECT数据,或者定义若干个全局变量,然后在查询窗口选择MSHFlexGrid的一行的同时给那些全局变量赋值,然后在打印窗口调用这些全局变量
Unload Me---------------------------这个窗口关闭cx_xzgl_gtzyywgwyscld.Show----------要打印的窗口弹出
cx_xzgl_gtzyywgwyscld.Adodc1.RecordSource = MSHFlexGrid1.RowSel---打印窗口的记录和
选中的行记录一致
ElseMsgBox "请先选择要打印的记录!!!", vbOKOnly + vbExclamation, "信息提示"----如果没选则提示选择
End If
End Sub
大哥们这段代码怎么改写呀,分不够我再加!
应该按照表格内容读一下数据库?rowsel只是返回一个行数,是个long型。另外unload me 那句是不是改成me.hide?我不知道form unload 之后会不会影响后面的代码运行
我做数据库不大用控件,一直是用ado对象的,如果说的不对,请多包涵。