Foxtable(狐表)用户栏目专家坐堂 → 关于文本转数值型问题


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

主题:关于文本转数值型问题

帅哥哟,离线,有人找我吗?
裴保民
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1945 积分:12159 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/9/16 16:51:00 [只看该作者]

Dim fbbh As WinForm.Label = e.Form.Controls("fapiaobianhaoLabel")
Dim fbh As WinForm.Label = e.Form.Controls("fbhLabel")
fbbh.Text = DataTables("发票库存资料表").sqlCompute("min(clng(发票号))", "是否已填开 = False And 发票类型 ='增值税普通发票' And 发票状态 ='正常发票'")
fbh.Text = Tables("发票库存资料表").Current("发票号")  蓝老师这句代码对吗?获取完最小值行后这样将该行其他字段赋值给其他控件上呢?

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

运行后提示未初始化
[此贴子已经被作者于2020/9/16 17:09:23编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57377 积分:290804 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/16 17:17:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154389&authorid=0&page=0&star=2,从16楼开始看

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


加好友 发短信
等级:八尾狐 帖子:1945 积分:12159 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/9/16 17:22:00 [只看该作者]

fbbh.Text = DataTables(").sqlCompute("min(clng(发票号))", "是否已填开 = False And 发票类型 ='增值税普通发票' And 发票状态 ='正常发票'")

怎样将“发票库存资料表" 中(发票号1)列 赋值给 fbbh.Text   不是(发票号)
用 fbh.Text = Tables("发票库存资料表").Current("发票号") 这段代码不行,打开窗体后显示的永远是第一行数据


发票号1列是字符串列发票号是设置列
[此贴子已经被作者于2020/9/16 17:29:25编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57377 积分:290804 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/16 17:27:00 [只看该作者]

dim dr as datarow = DataTables(").sqlfind("是否已填开 = False And 发票类型 ='增值税普通发票' And 发票状态 ='正常发票' ","发票号")
if dr isnot nothing then
fbbh.Text = dr("发票号1")
end if

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


加好友 发短信
等级:八尾狐 帖子:1945 积分:12159 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/9/16 17:32:00 [只看该作者]

获取的不是最小发票编号行

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

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

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


运行后没赋值

[此贴子已经被作者于2020/9/16 17:37:23编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57377 积分:290804 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/16 17:36:00 [只看该作者]

SQLFind(Filter,Sort,Index)

Filter:  条件表达式,采用的是SQL语法,和常规表达式的语法有所不同,请参考:SQL表达式的语法差异
Sort:    可选参数,指定排序方式。
Index:   可选参数,指定返回第几个符合条件的行,0表示第一行。

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


加好友 发短信
等级:八尾狐 帖子:1945 积分:12159 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/9/16 17:53:00 [只看该作者]

Dim dr As DataRow = DataTables("开票公司信息资料表").sqlfind("min(发票号查询码) And 是否已填开 = False And 发票类型 ='增值税普通发票' And 发票状态 ='正常发票' ","发票号查询码")
If dr IsNot Nothing Then
fbbh.Text = dr("发票号")
End If
表结构如下

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

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

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


运行后出错并不赋值
[此贴子已经被作者于2020/9/16 18:12:35编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57377 积分:290804 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/17 8:32:00 [只看该作者]

Dim dr As DataRow = DataTables("开票公司信息资料表").sqlfind("是否已填开 = False And 发票类型 ='增值税普通发票' And 发票状态 ='正常发票' ","发票号查询码")

 回到顶部
总数 28 上一页 1 2 3