- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 函数转换 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123945)
-- 发布时间：2018/8/27 17:22:00
-- [求助] 函数转换
请问
此主题相关图片如下：tim图片20180827171702.png
把这个转换一下
Dim grtcd As String = dt.SQLCompute("个人提成点","职称 = \'" & zc & "\'")
dt.SQLCompute("个人提成点","职称 = \'" & zc & "\'") 结果是 {0.16,0.19,0.22,0.25,0.3,0.35,0.4,0.45}
Dim grskd As String = dt.SQLCompute("个人扣除数","职称 = \'" & zc & "\'")
Dim grtc1() As Double = {0.16,0.19,0.22,0.25,0.3,0.35,0.4,0.45}
Dim grtc2() As Double = {0,300,900,1800,3800,6300,9300,12800}
Dim grtc1() As Double = {0.16,0.19,0.22,0.25,0.3,0.35,0.4,0.45}
Dim grtc2() As Double = {0,300,900,1800,3800,6300,9300,12800}
-- 发布时间：2018/8/27 17:33:00
--
Dim dr As DataRow = dt.find("职称 = \'" & zc & "\'")
Dim grtcd As String = dr("个人提成点")
Dim grskd As String = dr("个人扣除数")
Dim grtc1() As Double = grtcd.split(",")
Dim grtc2() As Double = grskd.split(",")
Dim grtc1() As Double = grtcd.split(",")
Dim grtc2() As Double = grskd.split(",")
-- 发布时间：2018/8/27 17:51:00
--
提示
此主题相关图片如下：企业微信截图_20180827174932.png
-- 发布时间：2018/8/27 18:33:00
--
你表里面的数据是怎么存放的？不是一个字符串（0.16,0.19,0.22,0.25,0.3,0.35,0.4,0.45）？截图发出来看看？
-- 发布时间：2018/8/27 18:44:00
--
是这样
此主题相关图片如下：tim图片20180827184305.png
-- 发布时间：2018/8/27 19:49:00
--
Dim grtc1() As Double = grtcd.replace("{","").replace("}","").split(",")
[此贴子已经被作者于2018/8/27 19:52:29编辑过]