Foxtable(狐表)用户栏目专家坐堂 → 关于填写内容到数据表的奇怪的问题


  共有2893人关注过本帖树形打印复制链接

主题:关于填写内容到数据表的奇怪的问题

美女呀,离线,留言给我吧!
sara
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
关于填写内容到数据表的奇怪的问题  发帖心情 Post By:2015/5/26 16:56:00 [只看该作者]

问题在哪里,姓名都写不进去,很奇怪,唯一写进去那个我是把编号写进去的


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/5/26 16:57:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/26 17:00:00 [只看该作者]

if salno.Value = "" then

改为

if salno.Value is nothing then

 回到顶部
美女呀,离线,留言给我吧!
sara
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/5/26 17:02:00 [只看该作者]

改这个没有意义吧?没解决问题啊,再说这样写有问题么

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/26 17:03:00 [只看该作者]

还有问题就上例子

 回到顶部
美女呀,离线,留言给我吧!
sara
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/5/26 17:05:00 [只看该作者]

不行啊
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:erp综合管理系统.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
美女呀,离线,留言给我吧!
sara
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/5/27 7:49:00 [只看该作者]

为什么只有text可以?


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/27 8:32:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
sara
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/5/27 8:39:00 [只看该作者]

意思是还是用Text比较保险了?但是我记得看视频时候说用text时候有可能有问题啊,有问题时候就改成value

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/27 8:40:00 [只看该作者]

8楼已经解释得很清楚.

 回到顶部
总数 13 1 2 下一页