专家坐堂-这代码错在哪里，显示类型转换无效Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这代码错在哪里，显示类型转换无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107426)

--  作者：wakai
--  发布时间：2017/9/27 19:10:00
--  这代码错在哪里，显示类型转换无效

If Tables("导入包材申请窗体_包材申请表明细").Rows.Count > 0 Then
Dim t As Table = Tables("导入包材申请窗体_包材申请表明细")
Dim b As WinForm.TextBox=e.Form.Controls("包材合同编号")
For Each r As Row In t.GetCheckedRows
r("包材合同编号") =b
Next
Else
MessageBox.Show("该申购单无明细!")
End If

实现选中行的“包材合同编号”，全部值等于"包材合同编号“这个窗体控件值
提示：从类型“TextBox”到类型“String”的转换无效。
包材合同编号列都是字符类型呀

--  作者：有点甜
--  发布时间：2017/9/27 20:33:00
--
If Tables("导入包材申请窗体_包材申请表明细").Rows.Count > 0 Then
    Dim t As Table = Tables("导入包材申请窗体_包材申请表明细")
    Dim b As WinForm.TextBox\'=e.Form.Controls("包材合同编号")
    For Each r As Row In t.GetCheckedRows
        r("包材合同编号") = b.text
    Next
Else
    MessageBox.Show("该申购单无明细!")
End If

--  作者：wakai
--  发布时间：2017/9/28 11:38:00
--
好的，谢谢