- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于填写内容到数据表的奇怪的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68875)
-- 发布时间：2015/5/26 16:56:00
-- 关于填写内容到数据表的奇怪的问题
问题在哪里，姓名都写不进去，很奇怪，唯一写进去那个我是把编号写进去的
此主题相关图片如下：2.png
此主题相关图片如下：3.png
此主题相关图片如下：4.png
-- 发布时间：2015/5/26 17:00:00
--
if salno.Value = "" then
-- 发布时间：2015/5/26 17:02:00
--
改这个没有意义吧？没解决问题啊，再说这样写有问题么
-- 发布时间：2015/5/26 17:03:00
--
还有问题就上例子
-- 发布时间：2015/5/26 17:05:00
--
不行啊
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:erp综合管理系统.foxdb |
-- 发布时间：2015/5/26 17:16:00
--
Value 改成 Text
Dim dr As DataRow
Dim salNo As WinForm.TextBox = Forms("员工明细建档").Controls("TextSalNo")
Dim name As WinForm.TextBox = Forms("员工明细建档").Controls("TextName")
If Vars("AddYuanGong") = True Then \'新增的
If salNo.Text Is Nothing Then
MessageBox.Show("员工代号不能为空白!")
Else
dr = DataTables("员工信息表").AddNew
If dr IsNot Nothing Then
dr("员工代号") = salNo.text
dr("员工姓名") = name.text
DataTables("员工信息表").Save
Vars("AddYuanGong") = False
Else
MessageBox.Show("存盘出现问题,请重新存盘!")
Return
End If
End If
Else \'修改的
dr = DataTables("员工信息表").Find("[员工代号] = \'"& salNo.text &"\'")
If dr IsNot Nothing Then
dr("员工姓名") = name.text
salNo.Value = dr("员工代号")
DataTables("员工信息表").Save
End If
End If
-- 发布时间：2015/5/27 7:49:00
--
为什么只有text可以？
-- 发布时间：2015/5/27 8:32:00
--
http://www.foxtable.com/help/topics/0750.htm
-- 发布时间：2015/5/27 8:39:00
--
意思是还是用Text比较保险了？但是我记得看视频时候说用text时候有可能有问题啊，有问题时候就改成value
-- 发布时间：2015/5/27 8:40:00
--
8楼已经解释得很清楚.