Foxtable(狐表)用户栏目专家坐堂 → [求助][原创]求助:网络环境下编号错误:标准表达式中数据类型不匹配


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

主题:[求助][原创]求助:网络环境下编号错误:标准表达式中数据类型不匹配

帅哥哟,离线,有人找我吗?
viking
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:371 积分:3120 威望:0 精华:0 注册:2013/7/13 15:49:00
[求助][原创]求助:网络环境下编号错误:标准表达式中数据类型不匹配  发帖心情 Post By:2015/1/11 17:27:00 [显示全部帖子]

保存就出下面的错误信息:

错误代码:

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:
详细错误信息:
标准表达式中数据类型不匹配。

 

哪里的错误啊?


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


加好友 发短信
等级:小狐 帖子:371 积分:3120 威望:0 精华:0 注册:2013/7/13 15:49:00
  发帖心情 Post By:2015/1/11 17:40:00 [显示全部帖子]

以下是引用viking在2015-1-11 17:27:00的发言:

保存就出下面的错误信息:

错误代码:

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:
详细错误信息:
标准表达式中数据类型不匹配。

 

哪里的错误啊?

Dim dr As DataRow = e.DataRow
Dim pf As String
If dr.RowState <> DataRowState.Added Then '如果不是新增行
    Return '那么返回
ElseIf dr.IsNull("流水日期") Then '如果没有输入日期
    e.Cancel = True '取消保存此行
    MessageBox.Show("必须输入流水日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    pf = Format(dr("流水日期"),"yyyymmdd") '否则获得编号的前缀,两位年,两位月
End If


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


加好友 发短信
等级:小狐 帖子:371 积分:3120 威望:0 精华:0 注册:2013/7/13 15:49:00
  发帖心情 Post By:2015/1/11 17:41:00 [显示全部帖子]

Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim Key As Integer


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


加好友 发短信
等级:小狐 帖子:371 积分:3120 威望:0 精华:0 注册:2013/7/13 15:49:00
  发帖心情 Post By:2015/1/11 17:48:00 [显示全部帖子]

下边的发不上去了,哪里不符合版规了????


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


加好友 发短信
等级:小狐 帖子:371 积分:3120 威望:0 精华:0 注册:2013/7/13 15:49:00
  发帖心情 Post By:2015/1/11 18:00:00 [显示全部帖子]

图片点击可在新窗口打开查看

 

 

麻烦给看下截图!!

[此贴子已经被作者于2015-1-11 18:06:41编辑过]

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


加好友 发短信
等级:小狐 帖子:371 积分:3120 威望:0 精华:0 注册:2013/7/13 15:49:00
  发帖心情 Post By:2015/1/11 18:00:00 [显示全部帖子]

我容易吗?不知道哪里,不符合版规了


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


加好友 发短信
等级:小狐 帖子:371 积分:3120 威望:0 精华:0 注册:2013/7/13 15:49:00
  发帖心情 Post By:2015/1/12 10:24:00 [显示全部帖子]

哦,明白了版规了,以前没有这个来着吧?

我的这个错在哪里了?

 


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


加好友 发短信
等级:小狐 帖子:371 积分:3120 威望:0 精华:0 注册:2013/7/13 15:49:00
  发帖心情 Post By:2015/1/12 11:04:00 [显示全部帖子]

麻烦给看下那个图片,那个是代码,显示不了的话,点下,打开可以看!


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


加好友 发短信
等级:小狐 帖子:371 积分:3120 威望:0 精华:0 注册:2013/7/13 15:49:00
  发帖心情 Post By:2015/1/12 17:12:00 [显示全部帖子]




    

    If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号
        Exit Do '更新成功则退出循环
    End If
Loop
e.DataRow("流水编号") = pf & Format(Key,"0000")

 回到顶部