小编Jea*_*ett的帖子

使用VBA向多个收件人发送电子邮件

我有以下代码,允许我附加报告,然后将其发送给一个收件人.

如何将其发送到多个地址?

我已经尝试将地址放在一个数组中,但它给出了"类型不匹配"错误.

Dim strReportName As String
Dim oLook As Object
Dim oMail As Object
Dim olns As Outlook.Namespace
Dim strTO As String
Dim strCC As String
Dim strMessageBody As String
Dim strSubject As String

Set oLook = CreateObject("Outlook.Application")
'Set olns = oLook.GetNamespace("MAPI")
Set oMail = oLook.CreateItem(0)

'*********************** USER DEFINED SECTION ************************
strTO = "chrissparkes@me.com"
strMessageBody = "<---This is an automatically generated email. Please do not respond.---->"
strSubject = "Daily Skip"
'*********************************************************************

With oMail
.To = strTO
 .CC = strCC …
Run Code Online (Sandbox Code Playgroud)

vba ms-access-2013

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

神秘使用LOOKUP

我多年来一直在使用这个Excel公式.它工作正常,但我想了解它的工作原理!该公式用于查找列表中的最后一个关联值.例如:

宏用法示例.

C14中的公式: =LOOKUP(2,1/(B1:B12="meat"),C1:C12)

这里,公式在C14B列中查找最新"meat"标记的单元格,并返回C列中的关联值.报告认为"meat",在B9和相应的返回值C9.

公式中最令人费解的部分是"1/(....)".这个师是什么?这种语法来自哪里?可以在其他地方使用吗?为什么查找值2

excel excel-formula

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

将矢量轮廓区域(边框)转换为栅格地图(像素网格)

我有一张地图,按世界地图上的国家/地区的边界(轮廓)划分为多个地区.每个区域都有一定的表面覆盖等级S(例如0表示水,0.03表示草...).边界定义如下:

  • S的两侧是什么值(一侧为0.03,另一侧为0.0,在下面的示例中为0.0)
  • 边界的构成点数(下例中n = 7),和
  • n个坐标对(x,y).

这是一个例子.

0.0300      0.0000           7
2660607.5   6332685.5   2660565.0   6332690.5   2660541.5   6332794.5 
2660621.7   6332860.5   2660673.8   6332770.5   2660669.0   6332709.5 
2660607.5   6332685.5
Run Code Online (Sandbox Code Playgroud)

我想使一个栅格图,其中每个像素具有的值小号对应于其中的像素的中心落在该区域.

请注意,边框表示S中的步骤更改.S的各种值代表离散类别(例如草或水),而不是可以平均的值(即没有湿草!).

另请注意,并非所有边框都是闭环,如上例所示.这有点像国界:例如,美国 - 加拿大边界不是一个封闭的环路,而是一条线在两端连接着另外两个边界:加拿大海洋和美国 - 海洋"边界".(尽管如此,确实存在闭环边界!)

有人能指出我能做到这一点的算法吗?我不想重新发明轮子!

algorithm geography raster geospatial

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

使用Netbeans 7.0 Enclojure 1.5的"hello world"

我刚开始学习Clojure.我想使用Netbeans,但我不知道如何设置一个简单的应用程序吐出任何东西.我按照Enclojure插件的设置,一切似乎都很好.任何人都可以在设置上给出一个简短的教程或提示.

netbeans clojure

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

ActiveX文本框值

如何在Word中获取文本框的值?我知道在这是正确的语法:ActiveSheet.Shapes(x).Name.

我认为在,这将是正确的语法
ActiveDocument.Shapes(x).Name,
但是这似乎并不工作.

使用这段代码我也找不到文本框:

For i = 1 To ActiveDocument.Shapes.Count
    MsgBox ActiveDocument.Shapes(i).Name
Next i
Run Code Online (Sandbox Code Playgroud)

vba word-vba

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

在MySQL客户端中禁用自动重新连接

我想通过更新来禁用MySQL客户端自动重新连接功能my.cnfreconnect=false[client]部分my.cnf.所以my.cnf看起来像这样:

[mysqld]
...
interactive_timeout=30
[client]
port=3306
socket=~/dir/mysql.sock
reconnect=false
Run Code Online (Sandbox Code Playgroud)

这不起作用.客户端在30秒后超时,但重新连接到服务器.

在调试问题时,我发现MySQL客户端变量没有设置.当我跑了<dir of mysql>/bin/mysql --help,我看到的是价值port,socketreconnect标志是:

./mysql --help

port                              0
reconnect                         TRUE
socket                            (No default value)
Run Code Online (Sandbox Code Playgroud)

我不想skip-reconnect从命令行设置.我猜可以说客户端配置my.cnf没有导出到客户端.但我需要一个明确的解决方案.

这个问题有时候无法复制.有些机器的改变my.cnf工作正常.

mysql

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

从 Admin Tabular Inline 访问外键字段

我正在尝试访问 Django 管理中表格内联中的外键字段。

尽管我尽了最大的努力,但我似乎无法让它发挥作用。我目前的代码是:

class RankingInline(admin.TabularInline):
    model = BestBuy.products.through
    fields = ('product', 'account_type', 'rank')
    readonly_fields = ('product', 'rank')
    ordering = ('rank',)
    extra = 0

    def account_type(self, obj):
        return obj.products.account_type
Run Code Online (Sandbox Code Playgroud)

结果是:

'RankingInline.fields' refers to field 'account_type' that is missing from the form.
Run Code Online (Sandbox Code Playgroud)

我也尝试过使用 model__field 方法,我将其用作:

fields = ('product', 'product__account_type', 'rank')
Run Code Online (Sandbox Code Playgroud)

结果是:

'RankingInline.fields' refers to field 'product__account_type' that is missing from the form.
Run Code Online (Sandbox Code Playgroud)

模型定义如下:

class Product(BaseModel):  
    account_type = models.CharField(choices=ACCOUNT_TYPE_OPTIONS, verbose_name='Account Type', max_length=1, default='P')

class Ranking(models.Model):
    product = models.ForeignKey(Product)
    bestbuy = models.ForeignKey(BestBuy)
    rank …
Run Code Online (Sandbox Code Playgroud)

django django-models django-admin

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

使用 JavaScript / jQuery 提交表单后调用函数

我想在提交表单后调用一个函数,我看到我们可以在 jQuery 中执行此操作,.submit(handler function())但是方法描述说,处理程序方法将在提交表单之前执行。我怎样才能真正做到这一点?我应该setTimeout在提交表单后使用还是有其他解决方案?

javascript forms jquery

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

ZF2将BjyAuthorize与Zend\Navigation集成

我有集成BjyAuthorize和Zend导航的问题,不知道如何解决它们.我试试这本手册,一切正常.但我预计当我在其中定义警卫时bjyauthorize.config,我的导航和警卫配置之间会有反映(拒绝控制器或路线不显示导航项).我的问题是导航项仍然显示,但部分被正确保护.有什么办法,如何将警卫反映到导航中?我在Module.php中查看帮助程序配置

我的Application/Module.php视图助手配置:

'mainMenu' => function($sm){
                $nav = $sm->get('navigation')->menu();
                $serviceLocator = $sm->getServiceLocator();
                $acl = $serviceLocator->get('BjyAuthorize\Service\Authorize')->getAcl();
                $role = $serviceLocator->get('BjyAuthorize\Service\Authorize')->getIdentity();
                $nav->setAcl($acl);
                $nav->setRole($role); // Todo replace
                $nav->setUseAcl();
                return $nav->setUlClass('nav')->setTranslatorTextDomain(__NAMESPACE__); 
            }
Run Code Online (Sandbox Code Playgroud)

我的守卫配置在bjyauthorize.global.php

'guards' => array(
    'BjyAuthorize\Guard\Controller' => array(
        array('controller' => 'Article\Controller\Article', 'roles' => array('user')),
),
Run Code Online (Sandbox Code Playgroud)

还有我的navigation.global.php

return array(
    'navigation' => array(
       'default' => array(
           'articles' => array(
                'label' => 'Articles',
                'route' => 'articles',
            ),
        ),
    ));
Run Code Online (Sandbox Code Playgroud)

我尝试将路由配置更改为模块/控制器/操作,但仍然无法正常工作.

navigation zend-framework2

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

如果我不再关心结果,有没有结束代表?

我有一段代码可以搜索多个第三方API.我根据搜索条件将搜索分为两组.我开始两次搜索都是因为每次搜索都非常及时,但如果第一组搜索结果匹配,我不想等待第二个搜索组完成.基本上我所拥有的是:

Dictionary<string, string> result = null;
NameSearchDelegate nameDel = new NameSearchDelegate(SearchByName);
IAsyncResult nameTag = nameDel.BeginInvoke(name, null, null);
if(!string.IsNullOrWhiteSpace(telNum))
{
    result = SearchByTelNum(telNum);//Will return null if a match is not found
}
if(null == result)
{
    result = nameDel.EndInvoke(nameTag);
}
//End the delegate to prevent memory leak
//else
//{
//    nameDel.EndInvoke(nameTag)
//}
return result;
Run Code Online (Sandbox Code Playgroud)

所以我想在调用SearchByTelNum之前启动SearchByName,以防它找不到匹配项,但是如果找到匹配项我不想在返回匹配项之前等待SearchByName完成.如果我不再需要它的结果,有没有办法简单地结束或取消该委托?

c# multithreading delegates

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