[求助]请大神说说怎么回事 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请大神说说怎么回事

共有2730人关注过本帖树形打印复制链接主题：[求助]请大神说说怎么回事

18523982317

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

[求助]请大神说说怎么回事 发帖心情

Post By：2016/9/12 21:31:00 [显示全部帖子]

Dim dr As DataRow = DataTables("个人配置).sqlFind(姓名='"& _username & " 个人
If dr IsNot Nothing Then
dr.Save
dr1(" 姓名)="_username
dr1( & ,g.value r.value & dr(主上颜色)="" b.value a.value
dr1.Save

dr("主上颜色") =a.value & "," & r.value & "," & g.value & "," & b.value
Else
Dim dr1 = Tables("个人配置").AddNew
End If

我之前没写dr.Save和dr1.save 直接在最后写的datatable().save的，但是颜色死活保存不进去。。。。
请教人之后才说用dr.Save和dr1..save试试，发现可以保存到表里了，
我就像问问为什么datatable（）.save不行，非得dr.save 那如果批量在后台改数据咋保存？

Dim s As String = dr("主上颜色")
msgbox(s)
sp1.Panel1.BackColor = Color.FromARGB(s)
sp2.Panel1.BackColor = Color.FromARGB(s)

我在afterload里写入了这段代码，为什么弹出来个算数溢出的错误，我把dr（）直接放入s进去也不行。。。

18523982317

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2016/9/13 8:31:00 [显示全部帖子]

以下是引用有点蓝在2016/9/13 8:12:00的发言：
sqlFind的结果是独立的行，所以必须单独保存。这个行不存在于任何已有的datatable，所以datatable（）.save无效。sql系列的方法都是这样

Dim s As String = dr("主上颜色")
msgbox(s) --结果是什么？

msgbox 弹出来的结果正常四位数字 255，0，0，0（逗号是小写的。）

但是弹出算数溢出的提示。。。。奇怪了。。。

如果 sp2.Panel1.BackColor = Color.FromARGB(dr（）) 又弹出来的颜色不对。。。。

还有个问题，如果我批量sqlselect。。。那还怎么保存？？

[此贴子已经被作者于2016/9/13 8:33:28编辑过]

18523982317

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2016/9/13 8:39:00 [显示全部帖子]

我后来想了个办法，我用的是ColorPicker，然后用下面的颜色生成整数保存。。。。

代码是下面：

Dim ysk As WinForm.ColorPicker = e.Form.Controls("颜色框")

Dim Val As Integer = ysk.Value.Pink.ToARGB

msgbox(val)

但是我无论选什么颜色，弹出来都是同一个整数。。。ysk.Value.Pink.ToARGB这里改怎么写？

18523982317

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2016/9/13 8:47:00 [显示全部帖子]

以下是引用狐狸爸爸在2016/9/13 8:40:00的发言：

sqlselect用这个保存：

http://www.foxtable.com/webhelp/scr/2901.htm

懂了，再麻烦狐爸看看颜色怎么回事？

如何把ColorPicker的颜色转换成数字

18523982317

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2016/9/13 9:37:00 [显示全部帖子]

以下是引用有点蓝在2016/9/13 8:48:00的发言：
Color.FromArgb (Int32, Int32, Int32, Int32) 参考https://msdn.microsoft.com/zh-cn/library/system.drawing.color.fromargb(VS.80).aspx

正确用法是Color.FromArgb(255,0,0,0)

Color.FromARGB(s)的结果变成了Color.FromArgb("255,0,0,0")，参数不正确，当然溢出了

Dim s() As String = dr("主上颜色").split(",")

sp2.Panel1.BackColor = Color.FromARGB(cint(s(0)),cint(s(1)),cint(s(2)),cint(s(3)))

额这样的额。。。。还有个问题，如何把ColorPicker的颜色转换成数字

Dim ysk As WinForm.ColorPicker = e.Form.Controls("颜色框")

Dim Val As Integer = ysk.Value.Pink.ToARGB

msgbox(val)

这写法错在那里？ysk.Value.Pink.ToARGB？

18523982317

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2016/9/13 10:21:00 [显示全部帖子]

以下是引用有点蓝在2016/9/13 9:46:00的发言：

Dim ysk As WinForm.ColorPicker = e.Form.Controls("颜色框")

Dim Val As Integer = ysk.Value.ToARGB

msgbox(val)

谢谢搞定了转成整数简单点

下一主题 >> << 上一主题

主题：[求助]请大神说说怎么回事