情况是这样的 刚刚接触VB 语言基础也不好
但是我想实现这样一个功能使用一个command控件 点击后 弹出新的附有TDBgrid的窗口 显示出某个产品的信息 共有3个栏位 都是存于Oracle数据库中的信息 需要使用SQL语句 以及XAarrayDB来进行承载以及连接 但是网上关于TDBGrid 的用法好像很不全 代码如下
Private Sub Cmd1_Click()
If optDataType(1).Value = False Then
MsgBox "叫匡拒块Panel_id!!", vbCritical
Else
If TxtInput.Text = "" Then
MsgBox "叫块Panel_id!!", vbCritical
Else
Load Form1
Form1.Show
Dim cmsql As String
Dim xarry As New XArrayDB
Dim cmmts As ADODB.RecordSet
Set cmmts = GetRecordSet(cmsql, cnnWIP)
cmsql = "select oper,comments,trans_date from wp_pnlhist where pnl_id = " & TxtInput.Text & ""
xarry(xarry.UpperBound(1), 6) = Trim("" & cmmts!OPER)
xarry(xarry.UpperBound(1), 6) = Trim("" & cmmts!Comments)
xarry(xarry.UpperBound(1), 6) = Trim("" & cmmts!TRANS_DATE)
End If
End If
End Sub If optDataType(1).Value = False Then
MsgBox "请选择并输入Panel_id!!", vbCritical
Else
If TxtInput.Text = "" Then
MsgBox "请输入Panel_id!!", vbCritical
Else
Load Form1
Form1.Show
Dim cmsql As String
Dim xarry As New XArrayDB
Dim cmmts As ADODB.RecordSet
Set cmmts = GetRecordSet(cmsql, cnnWIP)
c = xarry.UpperBound(1)
cmsql = "select oper,comments,trans_date from wp_pnlhist where pnl_id = " & TxtInput.Text & ""
xarry(c, 0) = Trim("" & cmmts!OPER)
xarry(c, 1) = Trim("" & cmmts!Comments)
xarry(c, 2) = Trim("" & cmmts!TRANS_DATE)
End If
End If跪求高手给个详细的答案 谢谢
但是我想实现这样一个功能使用一个command控件 点击后 弹出新的附有TDBgrid的窗口 显示出某个产品的信息 共有3个栏位 都是存于Oracle数据库中的信息 需要使用SQL语句 以及XAarrayDB来进行承载以及连接 但是网上关于TDBGrid 的用法好像很不全 代码如下
Private Sub Cmd1_Click()
If optDataType(1).Value = False Then
MsgBox "叫匡拒块Panel_id!!", vbCritical
Else
If TxtInput.Text = "" Then
MsgBox "叫块Panel_id!!", vbCritical
Else
Load Form1
Form1.Show
Dim cmsql As String
Dim xarry As New XArrayDB
Dim cmmts As ADODB.RecordSet
Set cmmts = GetRecordSet(cmsql, cnnWIP)
cmsql = "select oper,comments,trans_date from wp_pnlhist where pnl_id = " & TxtInput.Text & ""
xarry(xarry.UpperBound(1), 6) = Trim("" & cmmts!OPER)
xarry(xarry.UpperBound(1), 6) = Trim("" & cmmts!Comments)
xarry(xarry.UpperBound(1), 6) = Trim("" & cmmts!TRANS_DATE)
End If
End If
End Sub If optDataType(1).Value = False Then
MsgBox "请选择并输入Panel_id!!", vbCritical
Else
If TxtInput.Text = "" Then
MsgBox "请输入Panel_id!!", vbCritical
Else
Load Form1
Form1.Show
Dim cmsql As String
Dim xarry As New XArrayDB
Dim cmmts As ADODB.RecordSet
Set cmmts = GetRecordSet(cmsql, cnnWIP)
c = xarry.UpperBound(1)
cmsql = "select oper,comments,trans_date from wp_pnlhist where pnl_id = " & TxtInput.Text & ""
xarry(c, 0) = Trim("" & cmmts!OPER)
xarry(c, 1) = Trim("" & cmmts!Comments)
xarry(c, 2) = Trim("" & cmmts!TRANS_DATE)
End If
End If跪求高手给个详细的答案 谢谢
控件!这个是我见过最好用的VB表格控件