虫莲和疾风大哥再看看,我去结上个帖
Private Sub Command5_Click()
If MSHFlexGrid1.RowSel Then---------如果MSHFlexGrid1中有被选中的行
Unload Me---------------------------这个窗口关闭
cx_xzgl_gtzyywgwyscld.Show----------要打印的窗口弹出
cx_xzgl_gtzyywgwyscld.Adodc1.RecordSource = MSHFlexGrid1.RowSel---打印窗口的记录和
选中的行记录一致
Else
MsgBox "请先选择要打印的记录!!!", vbOKOnly + vbExclamation, "信息提示"----如果没选则提示选择
End If
另外大哥说的定义一个全局变量
选择MSHFlexGrid的一行的同时,给全局变量赋一个主键值,然后打印窗口再从数据库SELECT数据,或者定义若干个全局变量,然后在查询窗口选择MSHFlexGrid的一行的同时给那些全局变量赋值,然后在打印窗口调用这些全局变量
有没有例子我去看看
End Sub
大哥们这段代码怎么改写呀,分不够我再加!