以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这个表达式怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89154)
--  作者：18523982317
--  发布时间：2016/8/16 14:38:00
--  [求助]这个表达式怎么写？
Dim y As Integer = Format(Date.Today,"MM")
Dim n As Integer = Format(Date.Today,"yyyy")
Dim days As Integer = Date.DaysInMonth(n,y)
Dim d As Date = r("时间")
Dim days1 As Integer = d.Day
Dim s As Integer =  days - days1 + 1 
r("病事假扣款") = r("病事假基数")/30/8*(s*8 + r("病事假时间"))

最后两句代码怎么写， 我怎写怎么不对，求大神帮忙写写！
--  作者：大红袍
--  发布时间：2016/8/16 15:20:00
--  
 直接说明你要做什么。
--  作者：18523982317
--  发布时间：2016/8/16 16:20:00
--  
以下是引用大红袍在2016/8/16 15:20:00的发言：
 直接说明你要做什么。

最后两行代码老报错，表达式问题，现在弄好了
--  作者：18523982317
--  发布时间：2016/8/16 16:25:00
--  
以下是引用大红袍在2016/8/16 15:20:00的发言：
 直接说明你要做什么。

帮助里  ColorPicker  讲得好少啊
Dim sp1 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
sp1.Panel1.BackColor = Color.FromARGB(50,135,206,235)
上面中的 Color.FromARGB(50,135,206,235)  如何替换成ColorPicker  里面选的颜色？
--  作者：大红袍
--  发布时间：2016/8/16 16:52:00
--  

直接写

 

e.Form.Controls("ColorPicker1").Color