主题：[求助]未将对象引用设置到对象的实例

'保存修改

Dim c1 As Winform.Control
c1 = e.Form.Controls("TextBox1")
Dim t1 As WinForm.TextBox = c1

Dim drx As Row = Tables("生产商").Current
'If drx("生产商编码")="" Then
' MessageBox.Show("生产商编码必须录入!")
' Return
'End If
If drx("生产商名称")="" Then
MessageBox.Show("生产商名称必须录入!")
Return
End If

With Tables("生产商")
If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
MessageBox.Show("当前行未曾修改!")
Return
Else
'----------------------------------------------------------------------

Dim dr As DataRow= DataTables("系统参数表").Find("类别= '生产商编码'")
dr("流水")=dr("流水") + 1
Dim zc As String =dr("内容") & format(dr("流水"),"0000")
Tables("系统参数表").Current.Save()

drx("生产商编码")=zc

Tables("库存").Current("变动日期")=Date.Now
If 生产商编辑_状态 = "新增" Then
Tables("生产商").Current.Save()
MessageBox.Show("新增记录已经保存完毕!")
生产商编辑_状态 = ""
Else
Tables("生产商").Current.Save()
MessageBox.Show("修改完毕!")
'
End If
'
'-------------------------------------------------------------------------

End If
End With
c1.Select

.NET Framework 版本：2.0.50727.8670
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,添加生产商,Button8,Click
详细错误信息：
未将对象引用设置到对象的实例。

'保存修改

Dim c1 As Winform.Control
c1 = e.Form.Controls("TextBox1")
Dim t1 As WinForm.TextBox = c1

Dim drx As Row = Tables("生产商").Current
If drx Is Nothing Then Return

If drx("生产商名称")="" Then
MessageBox.Show("生产商名称必须录入!")
Return
End If

With Tables("生产商")
If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
MessageBox.Show("当前行未曾修改!")
Return
Else
'----------------------------------------------------------------------

Dim dr1 As DataRow= DataTables("系统参数表").Find("类别= '生产商编码'")
If dr1 Is Nothing Then Return
dr1("流水")=dr1("流水") + 1
Dim zc As String =dr1("内容") & format(dr1("流水"),"0000")
Tables("系统参数表").Current.Save()

drx("生产商编码")=zc
If Tables("生产商").Current Is Nothing Then Return
Tables("生产商").Current("变动日期")=Date.Now
If 生产商编辑_状态 = "新增" Then
Tables("生产商").Current.Save()
MessageBox.Show("新增记录已经保存完毕!")
生产商编辑_状态 = ""
Else
Tables("生产商").Current.Save()
MessageBox.Show("修改完毕!")
'
End If
'
'-------------------------------------------------------------------------

End If
End With
c1.Select

Dim dr1 As DataRow= DataTables("系统参数表").Find("类别= '生产商编码'")