小编pha*_*anx的帖子

如何进行Selection.AutoFilter从第3行而不是第1行开始

我有以下代码:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    Application.ScreenUpdating = False
    If Target.Value <> "" Then
            Set wbks = Workbooks.Open("\\MyPath\Workbook.xlsx")
        wbks.Sheets("Control").Activate
        ActiveSheet.Range("A1").Select
        Selection.AutoFilter
        Selection.AutoFilter Field:=7, Criteria1:=Target.Value '7 is the filter # column
    End If
End Sub
Run Code Online (Sandbox Code Playgroud)

仅当工作表control中的标题位于第1行时,它才能很好地工作。
我的问题是这\\MyPath\Workbook.xlsx是一个只读文件,其标题从第3行开始。

excel vba autofilter excel-vba

5
推荐指数
1
解决办法
2万
查看次数

如何"更新"工作簿而不是重新打开它(使用VBA宏)?

我的下面的代码有问题:

Private Sub Worksheet_BeforeDoubleClick(ByVal...
Application.ScreenUpdating = False
Set wbks = Workbooks.Open("\\whatever\whatever.xlsx")           
wbks.Sheets("Control").Activate
ActiveSheet.Range("A3").Select 
Application.ScreenUpdating = True
...
Run Code Online (Sandbox Code Playgroud)

如您所见,每次双击某个单元格时,它都会打开一个工作簿.问题是:在我第二次双击后,我收到了令人讨厌的消息:

"'Filename.xlsx'已经打开.重新打开会导致您所做的任何更改被丢弃......"

¿如何关闭此消息(因为未进行任何更改),如果可能,在每次双击而不是"重新打开"后使目标工作簿"更新"?

excel vba excel-vba

5
推荐指数
1
解决办法
2065
查看次数

如何在弹出窗口中打开aspx网页

在点击另一个.ASPX网页上的LinkBut​​ton后,我正在尝试编写一个代码来打开.aspx(弹出窗口的形状)(使用VB)

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)      Handles LinkButton1.Click

    'What code?

End Sub
Run Code Online (Sandbox Code Playgroud)

不知道怎么做,我找不到弹出控件或类似的东西.

vb.net asp.net popup asplinkbutton visual-studio-2008

5
推荐指数
1
解决办法
6万
查看次数

"更新/取消"按钮不会出现在"TemplateField编辑"按钮中

在Gridview的每一行中创建编辑按钮时,CommandField单击后会显示更新/取消按钮,因此您可以接受/取消更改.但是,我想要一个包含工具提示文本的编辑按钮,因为CommandField我没有使用tooltip属性TemplateField.它使用删除按钮,但我遇到编辑按钮的问题:

<asp:GridView ID="GridView1" runat="server" 
                    AllowPaging="True" AllowSorting="True"
                    DataMember="DefaultView" 
                    DataSourceID="SqlDataSource1" AutoGenerateColumns="False" 
                    DataKeyNames=FIELD,FIELD,FIELD" CellPadding="4" ForeColor="#333333" Width="90%"
                    Height="90%" Font-Size="Small">
                    <RowStyle BackColor="#EFF3FB" />
                    <Columns>
                        <asp:BoundField DataField="FIELD" HeaderText="FIELD" ReadOnly="True" 
                            SortExpression="FIELD" />
                        <asp:BoundField DataField="FIELD" HeaderText="FIELD" 
                            SortExpression="FIELD" />
                        <asp:BoundField DataField="FIELD" HeaderText="FIELD" 
                            SortExpression="FIELD" />
                        <asp:BoundField DataField="FIELD" HeaderText="FIELD" ReadOnly="True" 
                            SortExpression="FIELD" />
                        <asp:BoundField DataField="FIELD" HeaderText="FIELD" ReadOnly="True" 
                            SortExpression="FIELD" />
                        <asp:BoundField DataField="FIELD" HeaderText="FIELD" 
                            SortExpression="FIELD" />                        
                            <asp:CommandField ButtonType="Image"  Visible="true" EditText="Edit" ShowEditButton="True" EditImageUrl="images/pencil1.png"></asp:CommandField>                            
                            <asp:TemplateField >
                            <ItemTemplate>
                             <asp:ImageButton ID="deleteButton" runat="server" CommandName="Delete" Text="Delete" 
                                        OnClientClick="return confirm('¿Are you sure?');" ToolTip="delete" ImageUrl="images/DeleteRed1.png" />
                            </ItemTemplate> …
Run Code Online (Sandbox Code Playgroud)

vb.net asp.net gridview commandfield templatefield

4
推荐指数
1
解决办法
5665
查看次数

GridView编辑按钮需要2次点击

在gridview中按编辑按钮时,仅在单击2次后才会显示编辑模板.另一个问题:要编辑的字段的值最初显示在gridview中,但不显示在编辑模板中.

Asp代码:

<asp:GridView ID="GridView1" runat="server" AllowPaging="True" AllowSorting="True" 
AutoGenerateColumns="False" CellPadding="4" OnRowEditing="EditRow" 
OnRowCancelingEdit="CancelEditRow" DataKeyNames="AREA" DataMember="DefaultView">

  <Columns>
     <asp:BoundField DataField="AREA" HeaderText="AREA" ReadOnly="True" 
                                        SortExpression="AREA" />                                   

      <asp:TemplateField HeaderText="LEADER_USER" SortExpression="LEADER_USER">
                     <ItemTemplate><%#Eval("leader_user")%></ItemTemplate>
                      <EditItemTemplate>
                          <asp:TextBox ID="txtleaderuser" runat="server" Text='<%#Eval("leader_user")%>'/>
                      </EditItemTemplate>
       </asp:TemplateField>

       <asp:TemplateField>                                    
           <ItemTemplate>
                  <asp:ImageButton ID="editButton" runat="server" CommandName="Edit" 
                                                ImageUrl="images/pencil1.png" Text="Edit" ToolTip="Edit" />
            </ItemTemplate>
             <EditItemTemplate>
                   <asp:Button ID="BtnUpdate" runat="server" CommandName="Update" 
                                                Text="Update" />
                   <asp:Button ID="BtnCancel" runat="server" CommandName="Cancel" 
                                                Text="Cancel" />
              </EditItemTemplate>
             </asp:TemplateField>

      </Columns>
    </asp:GridView>
Run Code Online (Sandbox Code Playgroud)

vb代码:

Protected Sub EditRow(ByVal sender As Object, ByVal e As GridViewEditEventArgs)
        GridView1.EditIndex = e.NewEditIndex
        GridView1.DataSource = SqlDataSource1
        'If Not IsPostBack Then …
Run Code Online (Sandbox Code Playgroud)

vb.net asp.net data-binding gridview edit

4
推荐指数
1
解决办法
2679
查看次数

正好 6 个字符的正则表达式,首先必须是一个字母

与这些示例匹配的正则表达式是什么(6 个字符,第一个是字母,其他是数字):

u78945 - valid
s56123 - valid
456a12 - invalid
78561d - invalid
1234567 - invalid
Run Code Online (Sandbox Code Playgroud)

我不知道每种编程语言的正则表达式是否都相同。我需要它用于使用 VB ASP.NET 的正则表达式验证器控件。

regex vb.net asp.net

3
推荐指数
1
解决办法
6015
查看次数

Insert的ExecuteNonQuery()

你能告诉我这段代码有什么问题吗?

我是否需要使用DataAdapter插入表格?

我知道没问题connectionString,因为我在Server Explorer上测试了它.

    Dim mydao As New Connection
    Dim connectionString As String = mydao.GetConnectionString()
    Dim connection As New SqlConnection(connectionString)
    Dim cmd As New SqlCommand

Public Function add(ByVal area As String, ByVal user As String) As Integer

        cmd.CommandText = "INSERT into Area (Area, user) VALUES ('" + area + "','" + user + "')"
        Try
            connection.Open()
            Dim cant As Integer = cmd.ExecuteNonQuery()'it throws exception here
            connection.Close()
            Return cant
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Return 0
        End …
Run Code Online (Sandbox Code Playgroud)

vb.net insert sql-server-2008 visual-studio executenonquery

1
推荐指数
1
解决办法
2万
查看次数