以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请大神说说怎么回事  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90439)
--  作者：18523982317
--  发布时间：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进去也不行。。。
--  作者：有点蓝
--  发布时间：2016/9/13 8:12:00
--  
sqlFind的结果是独立的行，所以必须单独保存。这个行不存在于任何已有的datatable，所以datatable（）.save无效。sql系列的方法都是这样

Dim s As String = dr("主上颜色")
msgbox(s)  --结果是什么？
--  作者：18523982317
--  发布时间：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
--  发布时间：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这里改怎么写？
--  作者：狐狸爸爸
--  发布时间：2016/9/13 8:40:00
--  

sqlselect用这个保存：

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

 
--  作者：18523982317
--  发布时间：2016/9/13 8:47:00
--  
以下是引用狐狸爸爸在2016/9/13 8:40:00的发言：

sqlselect用这个保存：

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



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


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

 
--  作者：有点蓝
--  发布时间：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)))
--  作者：18523982317
--  发布时间：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？
--  作者：有点蓝
--  发布时间：2016/9/13 9:46:00
--  
Dim ysk As WinForm.ColorPicker = e.Form.Controls("颜色框")
Dim Val As Integer = ysk.Value.ToARGB
msgbox(val)
--  作者：18523982317
--  发布时间：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)

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