问题一:dim dbr1 as new adodb.recordset (全局)
然后
dbr1.Open "select 款号,颜色,尺码,数量 from 流水单,货品码 where 流水单.ID1=货品码.ID1 ",dbc
Set DataGrid1.DataSource = dbr1
一个COMMAND 中 dim dbr2 as new adodb.recordset
dbr.Open "select * from 流水单", dbc, 3, 3
dbr.AddNew Array("id1", "id2"), Array(z, c(Combo1(0).ListIndex)
dbr.Update
可是不管我怎么弄,datagrid1中的数据就是不更新.而且我也发现ADODC中也会有两个recordset操作数据时候不知道怎么更新,单纯用refresh没用,要先将recordset.close.后在open??
也希望有人能详细说明ADODB和ADODC中的表格显示更新问题.问题二:简单的说就象按回车实现TAB,将焦点移到下一个控件的问题.因为要将控件一个个SetFocus很是麻烦,而且又没有lostFocus功能.有没有办法可以让焦点按TABINDEX顺序移动.
然后
dbr1.Open "select 款号,颜色,尺码,数量 from 流水单,货品码 where 流水单.ID1=货品码.ID1 ",dbc
Set DataGrid1.DataSource = dbr1
一个COMMAND 中 dim dbr2 as new adodb.recordset
dbr.Open "select * from 流水单", dbc, 3, 3
dbr.AddNew Array("id1", "id2"), Array(z, c(Combo1(0).ListIndex)
dbr.Update
可是不管我怎么弄,datagrid1中的数据就是不更新.而且我也发现ADODC中也会有两个recordset操作数据时候不知道怎么更新,单纯用refresh没用,要先将recordset.close.后在open??
也希望有人能详细说明ADODB和ADODC中的表格显示更新问题.问题二:简单的说就象按回车实现TAB,将焦点移到下一个控件的问题.因为要将控件一个个SetFocus很是麻烦,而且又没有lostFocus功能.有没有办法可以让焦点按TABINDEX顺序移动.
dbr1.ReQuery2
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Const KEYEVENTF_KEYUP = &H2
Const VK_TAB = &H9Private Sub Form_Load()
Me.KeyPreview = True
End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
End If
End Sub
借这张贴的运气问一下上次没解决的问题我使用owc10显示图表,可以将数据显示和直接用命令.Export导出到EXCEL。
问题就是如何直接显示EXCEL中的打印预览功能
而几乎看不到EXCEL
可以到此处回答加分
http://community.csdn.net/Expert/topic/4764/4764039.xml?temp=.5908014