我还是前天问题,这次我说清楚一点
我想在录入的时候不输入重复的数据,把数据从另一个表中选择添加过来
你帮我做一个小程序实验一下好,我还是没有调试出来,只要求textbox中能显示出来数据就可以了,
两个窗体form1,form2
form1中有一个textbox
form2中有一个datagrid 和一个按钮button
form1为输入窗体,form2为选择数据窗体,
点击form1中的textbox后,form2出现,在form2中datagrid中选择一条记,点击按钮,form2 unload,在textbox中显示那条记录中Columns(1)的值

有人会实现这个功能吗?
响应一下

我好像做过了哦..

谢谢,我想问一下orders文件是怎么生成的.

只是一个数据库文件..你用你的数据库..代替它..就行了.

我想问一下能不能在form1里面进行赋值,因为我要有不只form1调用form2进行值,还有form3,form4调用,form2 作为一个选择数据窗体,可以显示不同的表数据

在form1里进行赋值..那怎么赋值法?.

form1中的代码
Private Sub 货物编号_Click()

If 货物编号.Locked Then Exit Sub
On Error Resume Next
Dim sel As New 数据选择
Dim sql As String
Set sel = New 数据选择
sql = "select 编号,货物名称,货物类别,货物规格 from 货物信息"
sel.Adodc1.ConnectionString = conn.ConnectionString
sel.Adodc1.CommandType = adCmdText
sel.Adodc1.RecordSource = sql
sel.Adodc1.Refresh
title = "请选择入库货物"
sel.Show vbModal

If result1 <> "" Then
货物编号.Text = result1
End Sub

form2的代码
Option Explicit

Private Sub CancelButton_Click()
result1 = ""
result2 = ""
Unload Me
End Sub

Private Sub OKButton_Click()

On Error Resume Next
result1 = DataGrid1.Columns(0).Text
result2 = DataGrid1.Columns(1).Text

Unload Me
Exit Sub
End Sub

Private Sub Form_Load()
Adodc1.Visible = False
End Sub

Private Sub Form_Resize()
On Error Resume Next
Adodc1.ConnectionString = conn.ConnectionString
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh

Me.caption = title
Dim d As Integer

If DataGrid1.Columns.Count <= 2 Then
d = 600
Else
d = 50
End If

Dim i As Integer
For i = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Columns(i).Width = Len(DataGrid1.Columns(i).caption) * d

Next

我想这么做,但是不对