主题：[求助] 控件公式问题

 呃.......

 

Dim dr As Row = Tables("表A").Current

Dim d As Date = e.Form.Controls("申请发生故障时间").Value
Tables("抢修整治迁改表").Filter = " 申请发生故障时间 >=  #" & d & "# and 申请发生故障时间 < #" & d.AddDays(1) & "#"

 参考代码

 

Dim d As Date = #5/21/2015#
Dim fday As Date = new Date(d.Year, d.Month, 1)
Dim finwek As Integer = fday.DayOfWeek
Dim fwekday As Integer = 7 - (finwek)
Dim diffday As Integer = d.Day - fwekday
diffday = iif(diffday > 0, diffday, 1)
Dim wekInMonth As Integer
If diffday Mod 7 = 0 Then
    wekInMonth = math.Floor(diffday / 7) - 1
Else
    wekInMonth = math.Floor(diffday / 7)
End If
wekInMonth += 1 + iif(d.Day > fwekday, 1, 0)
msgbox(wekInMonth)

没看到你例子什么意思。

 

 做一个例子，说明如何操作，最后要什么效果

 没看懂你什么意思，怎么操作，在哪里显示，显示什么

 

 完全看不懂你说什么啊。

Select Case e.DataCol.name
    Case "登记时间","登记人","登记内容","派发时间","派发人","派发内容","处理时间","处理人","处理内容","完成时间","完成人","完成内容"
        Dim dr As DataRow = e.DataRow
        Dim str As String = ""
        If dr.IsNull("登记时间") =False Then
            str &= dr("登记时间")+" "+dr("登记人")+"【"+dr("登记内容") +"】" & vbcrlf
        End If
       
        If dr.IsNull("派发时间")=False Then
            str &= dr("派发时间")+" "+dr("派发人")+"【"+dr("派发内容") +"】" & vbcrlf
        End If
       
        If dr.IsNull("处理时间")=False Then
            str &=  dr("处理时间")+" "+dr("处理人")+"【"+dr("处理内容") +"】" & vbcrlf
        End If
       
        If dr.IsNull("完成时间")=False Then
            str &= e.DataRow("完成时间")+" "+e.DataRow("完成人")+"【"+e.DataRow("完成内容") +"】"
        End If
        dr("处理过程") = str
End Select

e.Style 只能在drawcell事件写。

 Dim cs1 As C1.Win.C1FlexGrid.CellStyle = Tables("材料库存汇总表").grid.Styles.Add("cs1")
cs1.Font = new Font("宋体", 15)
cs1.Backcolor = Color.Yellow
Dim idx As Integer = Tables("材料库存汇总表").FindRow(pr)
For Each c As Col In Tables("材料库存汇总表").Cols
    Tables("材料库存汇总表").Grid.SetCellStyle(idx+1, c.Index+1, cs1)
Next

 同比和环比，必须根据你的日期列生成才行的，不能根据字符列得到。